home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 034a / castle61.zip / ANSISCOR.BAS next >
BASIC Source File  |  1991-02-09  |  4KB  |  57 lines
  1.     CLOSE #2: O$ = "Recording new score!": GOSUB xmit
  2.     PRINT "Updated Castle data.": MBUL$(1) = "SCORBORD.ASC": MAX = 1
  3.     IF MonoBul THEN MAX = 2: MBUL$(2) = MonoBul$
  4.     FOR J = 1 TO MAX
  5.        PRINT "Writing Mono Bulletin "; MBUL$(J)
  6.        OPEN MBUL$(J) FOR OUTPUT AS #2
  7.        PRINT #2, r1$
  8.        PRINT #2, "                           The Dark Castle Adventure"
  9.        PRINT #2, "                    ▓ ▓ ▓ ▓      Master Players    ▓ ▓ ▓ ▓"
  10.        PRINT #2, "                     ▓▓▓▓░            ░░            ░▓▓▓▓        (C)1989-90"
  11.        PRINT #2, "                     ▓▓▓▓░         ░░▄░░▄░░         ░▓▓▓▓        Marvin Davis"
  12.        PRINT #2, "                     ▓▓▄▓░▓▄▓▄▓▄▓▄▓ ▓ ▓ ▓ ▓▄▓▄▓▄▓▄▓▄░▓▄▓▓"
  13.        PRINT #2, "                  ░░░▓▓▓▓░▒░░░░░░░░░······░░░░░░░░░▒░▓▓▓▓░░░"
  14.        PRINT #2, "                ░░░██▓▓▓▓▄▒░░░░░░░▄░······░▄░░░░░░░▒▄▓▓▓▓██░░"
  15.        PRINT #2, "               ░░████▓▓▓▓░▒░░░░░░░░░······░░░░░░░░░▒░▓▓▓▓████░░"
  16.        PRINT #2, "              ░░░███▓▓▓▓▓░▒▒▒▒▒▒▒▒▒▒······▒▒▒▒▒▒▒▒▒▒░▓▓▓▓▓███░░"
  17.        PRINT #2, "               ░░░██████████████████░░░░░░██████████████████░░"
  18.        PRINT #2, "       ╓─────────── Players─────────░░░░░░─────── Moves ───────────────╖"
  19.        blank$ = SPACE$(59)
  20.        FOR K = 1 TO 10
  21.        PRINT #2, "       ║"; RIGHT$(STR$(K), 2); ". ";
  22.        IF Player$(K) <> " " THEN
  23.           PRINT #2, Player$(K); SPACE$(18); "║"
  24.        ELSE
  25.           PRINT #2, blank$; "║"
  26.        END IF
  27.        NEXT
  28.        PRINT #2, "       ╙──────────── Late-Nite BBS (919)776-2368 HST-DS 9600 ──────────╜"
  29.        CLOSE #2
  30.     NEXT
  31.                        
  32.     CBUL$(1) = "SCORBORD.SCR": MAX = 1: E$ = CHR$(27)
  33.     IF ColrBul THEN MAX = 2: CBUL$(2) = ColrBul$
  34.     FOR K = 1 TO MAX
  35.     PRINT "Update Color Bulletin "; CBUL$(K)
  36.     OPEN CBUL$(K) FOR OUTPUT AS #2
  37.     PRINT #2, "CThe Dark Castle AdventureHC▓ ▓ ▓ ▓CMaster Players    ▓ ▓ ▓ ▓HC▓▓▓▓░C░░s"
  38.     PRINT #2, "uC░▓▓▓▓C(C) 1989-90HC▐▌C▓▓▓▓░C░░▄░░▄░░C░▓▓▓▓CMarvin DavisHC▒s"
  39.     PRINT #2, "u▓C▓▓▄▓░▓▄▓▄▓▄▓▄▓ ▓ ▓ ▓ ▓▄▓▄▓▄▓▄▓▄░▓▄▓▓HC▒▓C░▓▒▒▒▓▓▓▓░▒░░░░░░░░░······░░░░░░░s"
  40.     PRINT #2, "u░░▒░▓▓▓▓▒▒▒▓░C░HC▐    ░▓▒▒▒██▓▓▓▓▄▒░░░░░░░▄░······░▄░░░s"
  41.     PRINT #2, "u░░░░▒▄▓▓▓▓██▒▒▓░C▓░ HC▓▓▒▒████▓▓▓▓░▒░░░░░░░░░······s"
  42.     PRINT #2, "u░░░░░░░░░▒░▓▓▓▓████▒▒▓░    ▀░▀HC░▓▒▒▒███▓▓▓▓▓░▒▒▒▒▒▒▒▒▒▒s"
  43.     PRINT #2, "u······▒▒▒▒▒▒▒▒▒▒░▓▓▓▓▓███▒▒▓░C▌HC░▓▒▒▒██████████████████░░░░s"
  44.     PRINT #2, "u░░██████████████████▒▒▓░HC╓─────────── Players─────────░░░░░░─────── s"
  45.     PRINT #2, "uMoves ───────────────╖HC║  1.C║HC║  2.C║HC║  3.C║Hs"
  46.     PRINT #2, "uC║  4.C║HC║  5.C║HC║  6.C║HC║  7.C║Hs"
  47.     PRINT #2, "uC║  8.C║HC║  9.C║HC║ 10.C║HC╙──────────── s"
  48.     PRINT #2, "uLate-Nite BBS (919)776-2368 HST-DS 9600 ──────────╜H"
  49.     FOR J = 1 TO Sort
  50.         IF LEN(Player$(J)) AND LEFT$(Player$(J), 1) <> " " THEN
  51.            PRINT #2, E$; "["; LTRIM$(STR$(11 + J)); "H"; E$; "[11C";
  52.            PRINT #2, E$; "[40m "; E$; "[1;37m"; Player$(J) + " moves"
  53.         END IF
  54.     NEXT
  55.     PRINT #2, E$ + "[22H" + E$ + "[0m": CLOSE #2
  56.     NEXT
  57.